home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / ENCRYPT.SWG / 0014_XORCODE.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  1KB  |  48 lines
  1. {
  2. │ Is if possible For you to post a sample code on how to use xor to
  3. │ encrypt a File???   I'm shifting ORD value around to do excryptions
  4. │ and I think your method is better..  So I would like to learn it..
  5.  
  6. Sure, here's a simple example that reads a user-entered line and
  7. encrypts it using the xor method.  By XOR-ing it again the line is
  8. decrypted.  This won't keep NSA fooled For more than a few seconds, but
  9. so long as you keep the passWord hidden it should suffice.
  10. }
  11.  
  12.  
  13. Program Sample;
  14.  
  15. Uses
  16.   Crt;
  17.  
  18. Const
  19.   PassWord : Array[1..8] of Char = 'Sha Zamm';
  20.  
  21. Var
  22.   PassBits : Array[1..8] of Byte Absolute PassWord;
  23.   ALine    : String[80];
  24.   LineBits : Array[0..80] of Byte Absolute ALine;
  25.   I, J, K  : Integer;
  26. begin
  27.   WriteLn('Enter a line of Text to encrypt:');
  28.   ReadLn(ALine);
  29.   J := 0;
  30.   For I := 1 to Length(ALine) Do
  31.   begin
  32.     Inc(J);
  33.     If J > 8 Then
  34.       J := 1;
  35.     LineBits[I] := LineBits[I] xor PassBits[J];
  36.   end;
  37.   WriteLn('Encrypted:  ',ALine);
  38.   J := 0;
  39.   For I := 1 to Length(ALine) Do
  40.   begin
  41.     Inc(J);
  42.     If J > 8 Then
  43.       J := 1;
  44.     LineBits[I] := LineBits[I] xor PassBits[J];
  45.   end;
  46.   WriteLn('Decrypted:  ',ALine);
  47. end.
  48.